home *** CD-ROM | disk | FTP | other *** search
/ PC go! 2008 April / PCgo 2008-04 (DVD).iso / interface / contents / demoversionen_3846 / 13664 / files / Data1.cab / datumtarg.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2001-10-16  |  6.3 KB  |  207 lines
  1. VERSION 5.00
  2. Begin VB.Form frmSample 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "Datum Target Symbol"
  5.    ClientHeight    =   3930
  6.    ClientLeft      =   6420
  7.    ClientTop       =   2910
  8.    ClientWidth     =   5250
  9.    KeyPreview      =   -1  'True
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    PaletteMode     =   1  'UseZOrder
  14.    ScaleHeight     =   3930
  15.    ScaleWidth      =   5250
  16.    Begin VB.TextBox Text4 
  17.       Height          =   288
  18.       Left            =   3240
  19.       TabIndex        =   10
  20.       Text            =   "Text4"
  21.       Top             =   3360
  22.       Width           =   972
  23.    End
  24.    Begin VB.TextBox Text3 
  25.       Height          =   288
  26.       Left            =   2040
  27.       TabIndex        =   7
  28.       Text            =   "Text3"
  29.       Top             =   1560
  30.       Width           =   612
  31.    End
  32.    Begin VB.TextBox Text2 
  33.       Height          =   288
  34.       Left            =   2040
  35.       TabIndex        =   5
  36.       Text            =   "Text2"
  37.       Top             =   1080
  38.       Width           =   612
  39.    End
  40.    Begin VB.TextBox Text1 
  41.       Height          =   372
  42.       Left            =   840
  43.       TabIndex        =   4
  44.       Top             =   480
  45.       Width           =   492
  46.    End
  47.    Begin VB.TextBox Text5 
  48.       Height          =   285
  49.       Left            =   1800
  50.       TabIndex        =   0
  51.       Text            =   "0.25"
  52.       ToolTipText     =   "Letter Height"
  53.       Top             =   3360
  54.       Width           =   975
  55.    End
  56.    Begin VB.CommandButton cmdOK 
  57.       Caption         =   "OK"
  58.       Height          =   375
  59.       Left            =   240
  60.       TabIndex        =   1
  61.       Top             =   3000
  62.       Width           =   1215
  63.    End
  64.    Begin VB.CommandButton cmdCancel 
  65.       Caption         =   "Cancel"
  66.       Height          =   375
  67.       Left            =   240
  68.       TabIndex        =   3
  69.       Top             =   3480
  70.       Width           =   1215
  71.    End
  72.    Begin VB.Image Image2 
  73.       BorderStyle     =   1  'Fixed Single
  74.       Height          =   420
  75.       Left            =   360
  76.       Picture         =   "DatumTarg.frx":0000
  77.       Top             =   480
  78.       Width           =   420
  79.    End
  80.    Begin VB.Label Label5 
  81.       Caption         =   "Symbol Size"
  82.       Height          =   252
  83.       Left            =   3240
  84.       TabIndex        =   11
  85.       Top             =   3120
  86.       Width           =   972
  87.    End
  88.    Begin VB.Image Image1 
  89.       BorderStyle     =   1  'Fixed Single
  90.       Height          =   420
  91.       Left            =   360
  92.       Picture         =   "DatumTarg.frx":01A2
  93.       Top             =   480
  94.       Width           =   420
  95.    End
  96.    Begin VB.Label Label4 
  97.       Caption         =   "Target Area Size"
  98.       Height          =   252
  99.       Left            =   360
  100.       TabIndex        =   9
  101.       Top             =   120
  102.       Width           =   1332
  103.    End
  104.    Begin VB.Label Label3 
  105.       Caption         =   "Target Number"
  106.       Height          =   252
  107.       Left            =   240
  108.       TabIndex        =   8
  109.       Top             =   1560
  110.       Width           =   1692
  111.    End
  112.    Begin VB.Label Label2 
  113.       Caption         =   "Datum Identifying Letter"
  114.       Height          =   252
  115.       Left            =   240
  116.       TabIndex        =   6
  117.       Top             =   1080
  118.       Width           =   1692
  119.    End
  120.    Begin VB.Shape Shape2 
  121.       BorderColor     =   &H000000FF&
  122.       Height          =   852
  123.       Left            =   1680
  124.       Top             =   3000
  125.       Width           =   1212
  126.    End
  127.    Begin VB.Label Label1 
  128.       Caption         =   "Font Height"
  129.       Height          =   252
  130.       Left            =   1800
  131.       TabIndex        =   2
  132.       Top             =   3120
  133.       Width           =   972
  134.    End
  135. Attribute VB_Name = "frmSample"
  136. Attribute VB_GlobalNameSpace = False
  137. Attribute VB_Creatable = False
  138. Attribute VB_PredeclaredId = True
  139. Attribute VB_Exposed = False
  140. Option Explicit
  141. '/******************************************************************/
  142. '/*                                                                */
  143. '/*                      TurboCAD for Windows                      */
  144. '/*                   Copyright (c) 1993 - 2001                    */
  145. '/*             International Microcomputer Software, Inc.         */
  146. '/*                            (IMSI)                              */
  147. '/*                      All rights reserved.                      */
  148. '/*                                                                */
  149. '/******************************************************************/
  150. ' Storage for read-only property indicating whether
  151. ' or not the dialog box was cancelled. Default is
  152. ' False. Note that the declaration is Private, so
  153. ' that the value cannot be set from the OLE client
  154. ' application. The client reads the value using the
  155. ' DialogCancelled property.
  156. Private blnDialogCanceled As Boolean
  157. Private Im00%, Im10%
  158. Private Str10$, Str20$, Str30$, Str40$, Str50$
  159. Private LetterHeight0$
  160. ' Read-only property indicating cancellation of the
  161. ' dialog.
  162. Property Get DialogCanceled() As Boolean
  163.     DialogCanceled = blnDialogCanceled
  164. End Property
  165. Private Sub cmdCancel_Click()
  166.     ' Set the value of the read-only property that
  167.     ' tells the caller the dialog was cancelled.
  168.     Call EscClick
  169.     Me.Hide
  170. End Sub
  171. Private Sub cmdOK_Click()
  172.     Me.Hide
  173. End Sub
  174. Private Sub Form_KeyPress(KeyAscii As Integer)
  175.     If KeyAscii = 27 Then Call EscClick
  176. End Sub
  177. Private Sub EscClick()
  178.     Me.Hide
  179. End Sub
  180. Private Sub Form_Load()
  181.     If ImDiam = 0 Then
  182.         Image1.Enabled = False
  183.         Image1.Visible = False
  184.         Image2.Enabled = True
  185.         Image2.Visible = True
  186.     Else
  187.         Image2.Enabled = False
  188.         Image2.Visible = False
  189.         Image1.Enabled = True
  190.         Image1.Visible = True
  191.     End If
  192. End Sub
  193. Private Sub Image1_Click()
  194.     Image1.Enabled = False
  195.     Image1.Visible = False
  196.     Image2.Enabled = True
  197.     Image2.Visible = True
  198.     ImDiam = 0
  199. End Sub
  200. Private Sub Image2_Click()
  201.     Image2.Enabled = False
  202.     Image2.Visible = False
  203.     Image1.Enabled = True
  204.     Image1.Visible = True
  205.     ImDiam = 1
  206. End Sub
  207.